VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BArchivoIni"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'---------------------------------------------------------------------------------------
' Module    : BArchivoIni
' DateTime  : 30/11/2011 11:48
' Author    :
' Purpose   : Clase Datos de Archivo Ini
'---------------------------------------------------------------------------------------
Option Explicit
Private mvarsFormatoFecha As String
Private mvarSConnectionString As String
Private mvarSTipoAplicacion As String
Private mvarsDirImgProductos As String
Private mvarsDirImgCategorias As String
Private x As String

Public Property Get sDirImgProductos() As String

    sDirImgProductos = mvarsDirImgProductos

End Property

Public Property Let sDirImgProductos(ByVal sDirImgProductos As String)

    mvarsDirImgProductos = sDirImgProductos

End Property

Public Property Get sDirImgCategorias() As String

    sDirImgCategorias = mvarsDirImgCategorias

End Property

Public Property Let sDirImgCategorias(ByVal sDirImgCategorias As String)

    mvarsDirImgCategorias = sDirImgCategorias

End Property



Friend Property Let sFormatoFecha(ByVal vData As String)
    mvarsFormatoFecha = vData
End Property
Friend Property Get sFormatoFecha() As String
    sFormatoFecha = mvarsFormatoFecha
End Property
Friend Property Let sConnectionString(ByVal vData As String)
    mvarSConnectionString = vData
End Property
Friend Property Get sConnectionString() As String
    sConnectionString = mvarSConnectionString
End Property
Friend Property Let sTipoAplicacion(ByVal vData As String)
    mvarSTipoAplicacion = vData
End Property
Friend Property Get sTipoAplicacion() As String
    sTipoAplicacion = mvarSTipoAplicacion
End Property




